home *** CD-ROM | disk | FTP | other *** search
/ Web Developers Guide to Sound & Music / Web Developers Guide to Sound and Music.iso / mac / Overture / OVERTURE 1.2.1 DEMO.sit / Overture 1.2.1 Demo.rsrc / TEXT_130_Pict Dictionary.txt < prev    next >
Text File  |  1996-05-28  |  889b  |  54 lines
  1. pse
  2. /OvDict 50 dict def
  3. OvDict begin
  4.  
  5. /Bdf {bind def} bind def
  6. /Clw {currentlinewidth} Bdf
  7. /Cp  {closepath} Bdf
  8. /Ct  {curveto} Bdf
  9. /Gr  {grestore} Bdf
  10. /Gs  {gsave} Bdf
  11. /Lt  {lineto} Bdf
  12. /Mt  {moveto} Bdf
  13. /Np  {newpath} Bdf
  14. /Rmt {rmoveto} Bdf
  15. /Sk  {stroke} Bdf
  16. /Slw {setlinewidth} Bdf
  17. /Sw  {stringwidth pop} Bdf
  18. /Tx      {show} Bdf
  19. /Get  { exch def } Bdf
  20.  
  21. /ASlur
  22. { 
  23. currentpoint translate
  24. /SP Get
  25. /Y3 Get /X3 Get /Y2 Get /X2 Get
  26. /Y1 Get /X1 Get /Y0 Get /X0 Get
  27. Gs
  28. .25 Slw
  29. Np
  30. X0 Y0 Mt X1 Y1 X2 Y2 X3 Y3 Ct
  31. X2 Y2 SP add X1 Y1 SP add X0 Y0 Ct
  32. Gs Sk Gr fill Gr
  33. } Bdf
  34.  
  35. /ABeam
  36. {
  37. currentpoint translate
  38. /Ru Get /Lu Get /Bh Get /Ev Get /Eh Get /Sv Get /Sh Get /Pe Get /Ps Get
  39. Lu 0 ne { /Sh Sh (l) Sw add (m) Sw sub def } if
  40. Ru 0 ne { /Eh Eh (l) Sw add def } if
  41. Gs
  42. Sh -10000 Eh 10000 Clip
  43. Bh Slw 2 setlinecap
  44. /Bh Bh 2 div def
  45. /Sv Sv Bh sub def
  46. /Ev Ev Bh sub def
  47. Ps Sv Mt Pe Ev Lt Sk
  48. Gr
  49. } Bdf
  50.  
  51. end
  52. psb
  53.  
  54.